rm(list=ls())
source("../DATA/movavg.R")
db <- db <- dbConnect(RSQLite::SQLite(),dbname= "../COVID-19-DB/OURWORLD.sqlite3")
SWE <- dbGetQuery(db,"select * from JHU where location ='Sweden'")
SWE$date <- as.Date(SWE$date)
SWE <- SWE[order(SWE$date),]
SWE$CMA <- ma(SWE$new_cases,6,centre=TRUE)
SWE$DMA <- ma(SWE$new_deaths,6,centre=TRUE)
dbDisconnect(db)
Sweden <- readxl::read_xlsx("./Folkhalsomyndigheten_Covid19.xlsx") %>%
rename(Date = Statistikdatum) %>%
rename(Cases = Totalt_antal_fall)
Sweden$Date <- as.Date(Sweden$Date)
Our World In Data: Sweden’s Daily Cases
SWE <- SWE %>% filter(date >="2020-11-1")
Sweden <- Sweden %>% filter(Date >="2020-11-1")
plot1 <- ggplot() + geom_col(data=SWE,aes(x=date,y=new_cases,col="OWID")) +
geom_line(data=Sweden,aes(x=Date,y=Cases,col = "Offical")) +
geom_line(data=SWE,aes(x=date,y=CMA,col = "6 Day Mov. Avg."))
ggplotly(plot1)
OUr World In Data: Sweden’s Daily Deaths
plot2 <- ggplot() + geom_col(data=SWE,aes(x=date,y=new_deaths,col="OWID")) +
geom_line(data=SWE,aes(x=date,y=DMA,col = "6 Day Mov. Avg."))
ggplotly(plot2)